# name : logger::log_level set in match.arg, in function defun
# key : log_mactharg_set@logger
# key : logger.log_mactharg_set
# contributor: Shuguang Sun
# --
old_log_level <- logger::log_threshold()
log_level <- match.arg(log_level)
logger::log_threshold(log_level)
on.exit(logger::log_threshold(old_log_level))
